home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Aldus / US English / PageMaker 5.0 / PageMaker 5.0 68K / PM5.0 TV RSRC / PM5.0 TV RSRC.rsrc / PSRC_133 < prev    next >
Encoding:
Text File  |  1993-08-26  |  31.6 KB  |  431 lines
  1. ~c%%BeginResource: procset ALDUSPREP_PS
  2. %%Copyright: (C) Copyright 1992 Aldus Corporation.  All Rights Reserved.
  3. /AldusDict2 325 dict def AldusDict2 begin/AldusVersion 209 def/AldusRev 57 def
  4. /bdef{bind def}bind def systemdict/currentpacking known{/AD_OldPacking
  5. currentpacking def true setpacking}if/AD_PrevMatrix matrix def
  6. /AD_SomethingOnPage false def/AD_OutlineWidth 12 def/AD_ShadOffset 0.06 def
  7. /AD_OLShadOffset 0.06 def/AD_OLSmearFact 0.03 def/AD_BoldSmearFact 0.03 def
  8. /AD_ObliqueAngle -0.21 def/AD_TrueSetscreen/setscreen load def/AD_NestedMirror
  9. false def/AD_TextCutout false def/BEGJOB{/AD_Invert exch def dup
  10. AD_NestedMirror xor/AD_NestedMirror exch def/AD_MirrorFlag exch def
  11. /AD_WideFlag exch def/paperwid exch def/paperht exch def/AD_Resolution 1440
  12. def/AD_PointsToUCS AD_Resolution 72 div def AD_PrevMatrix currentmatrix pop
  13. /AD_PrevScreen[currentscreen]def/AD_PrevTransfer currenttransfer def
  14. /AD_StdScreen true def/STD_SCREEN{AD_StdScreen not{AD_PrevScreen cvx exec
  15. setscreen/AD_PrevTransfer load settransfer/AD_StdScreen true assign}if}def
  16. true _SetCoordSys version(23.)anchorsearch{pop pop/truesetgray/setgray load
  17. def/setgray{mark AD_Invert{.0 .0 .06 .1 .28 .48 .56 .68 .82 .9 .98 1.0}{1.0
  18. 1.0 .98 .9 .82 .68 .56 .48 .28 .1 .06 .0}ifelse counttomark dup 3 add -1 roll
  19. exch 2 sub mul dup floor cvi dup 3 1 roll sub exch dup 3 add index exch 2 add
  20. index dup 4 1 roll sub mul add counttomark 1 add 1 roll cleartomark
  21. truesetgray}def}{pop}ifelse/screenAdjust 1 0 dtransform exch atan def
  22. /mirrorScreen AD_NestedMirror{/neg load}{{}}ifelse def/setscreen{exch
  23. screenAdjust add mirrorScreen exch AD_TrueSetscreen}def}def/_SetCoordSys{
  24. /AD_OldSys exch def AD_WideFlag{AD_OldSys{90 rotate 1 AD_PointsToUCS div dup
  25. neg scale}{1 AD_PointsToUCS div dup neg scale paperht paperwid neg translate
  26. 90 rotate}ifelse}{1 AD_PointsToUCS div dup neg scale 0 paperht neg translate}
  27. ifelse AD_MirrorFlag{paperwid 0 translate -1 1 scale}if/AD_DeviceScale 1 1
  28. transform pop 0 0 transform pop sub abs def}bdef/SETRES{/AD_Resolution exch
  29. def/AD_PointsToUCS AD_Resolution 72 div def AD_PrevMatrix setmatrix false
  30. _SetCoordSys _DefinePatterns}bdef/SETOVERPRINT{setoverprint}bdef/SETTEXTCUTOUT
  31. {/AD_TextCutout exch def}bdef/BEGPAGE{/AD_SomethingOnPage false def}bdef
  32. /ENDPAGE{AD_SomethingOnPage{save showpage restore}if}def/MUST_PRINT_PAGE{
  33. /AD_SomethingOnPage true def}bdef/ENDJOB{AD_PrevMatrix setmatrix}bdef
  34. /S_PSCRIPT{/AD_SomethingOnPage true def}bdef/S_TEXTSEGBEG{/here save def
  35. /TX_RunDrawn false def newpath}bdef/S_TEXTSEGEND{TX_RunDrawn{here restore
  36. /AD_SomethingOnPage true def}{here restore}ifelse}bdef/S_WORKING{
  37. /AD_WorkingMemory exch def}bdef/S_LOADFONT{AldusDict2/AD_TopOfFonts known exch
  38. {{AD_TopOfFonts restore}if}{not{save/AD_TopOfFonts exch def}if}ifelse}bdef
  39. /SURSTR{AD_SomethingOnPage SUsv restore}bdef/SUSAVE{AldusDict2/AD_TopOfFonts
  40. known vmstatus exch sub exch pop AD_WorkingMemory lt{dup{AD_TopOfFonts restore
  41. }if}if not{save/AD_TopOfFonts exch def}if save/SUsv exch def
  42. /AD_SomethingOnPage exch def}bdef/_ftName 66 string def/_AutoRecode{/recode
  43. exch def _ftName cvs dup length 7 gt{dup 0 7 getinterval(|______)eq{dup length
  44. 7 exch 7 sub getinterval recode{FTRECODE}{FTRENAME}ifelse}{pop}ifelse}{pop}
  45. ifelse}bdef/SYM_SAV{save/SYMsv exch def}bdef/SYM_RSTR{AD_SomethingOnPage SYMsv
  46. restore/AD_SomethingOnPage exch def}bdef/AD_save_xform null def/SET_TX_XFORM{
  47. /m_x exch def/r_angle exch def/ref_y exch def/ref_x exch def/AD_save_xform
  48. save def ref_x ref_y translate m_x{-1 1 scale}if r_angle neg rotate ref_x neg
  49. ref_y neg translate}bind def/CLEAR_TX_XFORM{AD_SomethingOnPage AD_save_xform
  50. restore/AD_SomethingOnPage exch def}bind def/COL_ARAY 6 array def/SET_C{
  51. counttomark 6 eq{COL_ARAY astore}if counttomark 1 add -1 roll pop/AD_textcolor
  52. exch def false SETTEXTCUTOUT}bind def/SHADOWFLAG 16#1 def/OUTLINEFLAG 16#2 def
  53. /BOLDSMEAR 16#4 def/OUTLINESMEAR 16#8 def/ReENCODED 16#10 def/BOLDPSBUMP 16#20
  54. def/ITALICOBLIQUE 16#40 def/SET{count 5 eq not{6 array astore}if/AD_textcolor
  55. exch def/AD_fontbits exch def/AD_20EMS exch def 1 index FontDirectory exch
  56. known not{1 index ReENCODED AD_fontbits _iand _AutoRecode}if BOLDPSBUMP
  57. AD_fontbits _iand{1 add}if dup _ActivateFont ITALICOBLIQUE AD_fontbits _iand{
  58. _ActivateObliqueFont}if/AD_width_factor_internal AD_width_factor def
  59. AD_width_factor 1 ne{currentfont[AD_width_factor 0 0 1 0 0]makefont setfont}if
  60. /AD_EmNotMatch AD_20EMS 20 div(M)_ADStringWidth pop sub abs 1 gt def false
  61. SETTEXTCUTOUT}bdef/S_SETUPRUN/SET load def/OUT{/here save def/runwidth exch
  62. def/nspaces exch def/nchars exch def/textrun exch def/letterspace exch def
  63. /wordspace exch def/y1 exch def/x1 exch def nchars 0 gt{AD_textcolor dup
  64. _Gray?{setgray}{aload pop{PREGISCOLOR}{PCOLOR}ifelse}ifelse/letterspace
  65. AD_EmNotMatch{runwidth textrun _ADStringWidth pop nchars dup 1 gt{1 sub}if
  66. letterspace mul add nspaces wordspace mul add sub nchars dup 1 gt{1 sub}if div
  67. }{0}ifelse letterspace add def SHADOWFLAG AD_fontbits _iand{save OUTLINEFLAG
  68. AD_fontbits _iand{_OLShadowOffset}{AD_textcolor _Gray?{_ShadowScreen}if
  69. AD_textcolor _ShadowColor _ShadowOffset}ifelse OUTLINEFLAG AD_fontbits _iand
  70. OUTLINESMEAR AD_fontbits _iand not and{_ActivateSolidFont _SetTextWidth}if
  71. AD_TextCutout{1 setgray}if _ShowRun BOLDSMEAR AD_fontbits _iand{
  72. _BoldSmearOffset _ShowRun}if restore}if OUTLINEFLAG AD_fontbits _iand
  73. OUTLINESMEAR AD_fontbits _iand and{_OLSmearRun}{OUTLINEFLAG AD_fontbits _iand{
  74. save _ActivateSolidFont _SetTextWidth AD_textcolor _Gray? AD_textcolor _White?
  75. or{AD_textcolor _White?{0}{_TextFillColor}ifelse setgray}{1 setgray}ifelse
  76. _ShowRun restore}if _ShowRun BOLDSMEAR AD_fontbits _iand{_BoldSmearOffset
  77. _ShowRun}if}ifelse}if here restore/AD_SomethingOnPage true def}bdef
  78. /S_OUTPUTRUN/OUT load def/_ADStringWidth{gsave closepath clip stringwidth
  79. grestore}bdef/_OLSmearRun{gsave _OLSmearOffset translate _ShowRun grestore
  80. gsave _OLSmearOffset exch neg exch translate _ShowRun grestore gsave
  81. _OLSmearOffset neg translate _ShowRun grestore gsave _OLSmearOffset neg exch
  82. neg exch translate _ShowRun grestore gsave AD_textcolor _Gray? AD_textcolor
  83. _White? or{AD_textcolor _White?{0}{_TextFillColor}ifelse setgray}{1 setgray}
  84. ifelse _ShowRun grestore}bdef/_TextFillColor{AD_TextCutout{1}{1 AD_textcolor
  85. sub}ifelse}bdef/_ShowRun{x1 y1 moveto wordspace 0 8#040 letterspace 0 textrun
  86. awidthshow}bdef/AD_width_factor_internal 1 def/_SetTextWidth{
  87. AD_width_factor_internal 1 ne{currentfont[AD_width_factor_internal 0 0 1 0 0]
  88. makefont setfont}if}bdef/AD_save_textwidth null def/SET_TEXT_WIDTH{
  89. /AD_width_factor_internal exch def/AD_save_textwidth save def _SetTextWidth}
  90. bdef/RESTORE_TEXT_WIDTH{AD_SomethingOnPage AD_save_textwidth restore
  91. /AD_SomethingOnPage exch def/AD_width_factor_internal 1 def}bdef
  92. /AD_width_factor 1 def/SET_TX_WIDTH{/AD_width_factor exch def}bdef
  93. /CLEAR_TX_WIDTH{/AD_width_factor 1 def}bdef/S_UNDERLINE{/here save def count 7
  94. eq not{6 array astore}if/color exch def/pointsize exch def/width exch def
  95. /deltay exch def/baseline exch def/rightx exch def/leftx exch def currentfont
  96. /FontInfo known{currentfont/FontInfo get/UnderlinePosition known{/deltay
  97. currentfont/FontInfo get/UnderlinePosition get currentfont/FontMatrix get 3
  98. get mul pointsize AD_fontscale AD_PointsToUCS div div mul def}if currentfont
  99. /FontInfo get/UnderlineThickness known{/width currentfont/FontInfo get
  100. /UnderlineThickness get currentfont/FontMatrix get 3 get abs mul pointsize
  101. AD_fontscale AD_PointsToUCS div div mul def}if}if/underliney 0 baseline deltay
  102. add transform round exch round exch itransform exch pop def color dup _Gray?{
  103. setgray}{aload pop{PREGISCOLOR}{PCOLOR}ifelse}ifelse width setlinewidth
  104. SHADOWFLAG AD_fontbits _iand{save OUTLINEFLAG AD_fontbits _iand{
  105. _OLShadowOffset}{color _Gray?{_ShadowScreen}if color _ShadowColor
  106. _ShadowOffset}ifelse leftx underliney rightx underliney _ShowUnderline restore
  107. }if leftx underliney rightx underliney _ShowUnderline OUTLINEFLAG AD_fontbits
  108. _iand OUTLINESMEAR AD_fontbits _iand not and{save color _Gray?{1 color sub
  109. setgray}{0 0 0 0 setcmykcolor}ifelse/AD_OutlineWidth AD_OutlineWidth 1000 div
  110. AD_fontscale mul def width 3 AD_OutlineWidth mul ge{width 2 AD_OutlineWidth
  111. mul sub}{width 3 div}ifelse setlinewidth leftx AD_OutlineWidth add underliney
  112. rightx AD_OutlineWidth sub underliney _ShowUnderline restore}if here restore
  113. /AD_SomethingOnPage true def}bdef/_ShowUnderline{newpath moveto lineto stroke}
  114. bdef/S_STRIKETHRU{/here save def count 4 eq not{6 array astore}if/color exch
  115. def/y exch def/rightx exch def/leftx exch def/y 0 y transform round exch round
  116. exch itransform exch pop def color _Gray?{color setgray}{color aload pop{
  117. PREGISCOLOR}{PCOLOR}ifelse}ifelse _StrikeThruWidth setlinewidth newpath leftx
  118. y moveto rightx y lineto stroke here restore/AD_SomethingOnPage true def}bdef
  119. /DV_DRAW_TEXT{/here save def/text exch def/y exch def/x exch def Black setgray
  120. (Helvetica-Bold)FTRECODE/|______Helvetica-Bold 9 dup _ActivateFont x y moveto
  121. text show here restore/AD_SomethingOnPage true def}bdef/DV_DRAW_BOX{/here save
  122. def/draftflag exch def/shadowflag exch def/y2 exch def/x2 exch def/y1 exch def
  123. /x1 exch def AD_PointsToUCS 2 div setlinewidth newpath x1 y1 moveto x1 y2
  124. lineto x2 y2 lineto x2 y1 lineto closepath shadowflag{gsave STD_SCREEN 0.5
  125. setgray fill grestore}{gsave 1.0 setgray fill grestore 0.0 setgray stroke}
  126. ifelse draftflag{x1 y1 moveto x2 y2 lineto stroke x2 y1 moveto x1 y2 lineto
  127. stroke}if here restore/AD_SomethingOnPage true def}bdef/DV_DRAW_LINE{/here
  128. save def/lw exch def/y2 exch def/x2 exch def/y1 exch def/x1 exch def x1 y1
  129. transform round exch round exch itransform/y1 exch def/x1 exch def x2 y2
  130. transform round exch round exch itransform/y2 exch def/x2 exch def 0 lw
  131. transform round exch round exch itransform/lw exch def pop lw setlinewidth 0
  132. setseparationgray newpath x1 y1 moveto x2 y2 lineto stroke here restore
  133. /AD_SomethingOnPage true def}def/DV_DRAW_CIRCLE{/here save def/lw exch def/r
  134. exch def/y exch def/x exch def x y transform round exch round exch itransform
  135. /y exch def/x exch def 0 r transform round exch round exch itransform/r exch
  136. def pop 0 lw transform round exch round exch itransform/lw exch def pop lw
  137. setlinewidth Black setgray newpath x y r 0 360 arc stroke here restore
  138. /AD_SomethingOnPage true def}bdef/_ActivateFont{/AD_fontscale exch
  139. AD_PointsToUCS mul def/AD_fontscaleX exch AD_PointsToUCS mul def/AD_fontname
  140. exch def AD_fontname findfont[AD_fontscaleX 0 0 AD_fontscale neg 0 0]makefont
  141. setfont}bdef/_ActivateObliqueFont{AD_fontname findfont[AD_fontscaleX 0 0
  142. AD_fontscale neg 0 0][1 0 AD_ObliqueAngle 1 0 0]matrix concatmatrix makefont
  143. setfont}bdef/_ActivateSolidFont{AD_solidfont AD_fontscaleX AD_PointsToUCS div
  144. AD_fontscale AD_PointsToUCS div _ActivateFont}bdef/_ShadowOffset{AD_ShadOffset
  145. AD_fontscaleX mul AD_ShadOffset AD_fontscale mul translate}bdef
  146. /_OLShadowOffset{AD_OLShadOffset AD_fontscaleX mul AD_OLShadOffset
  147. AD_fontscale mul translate}bdef/_ShadowScreen{100 AD_PrevScreen 1 get
  148. AD_PrevScreen 2 get setscreen}bdef/_ShadowColor{dup _Gray? exch dup _White? 3
  149. -1 roll or{dup _White?{pop 1}if 0.6 mul 0.8 exch sub setgray}{_ShadeColor}
  150. ifelse}bdef/_ShadeColor{/AldusTint .2 def aload pop{PREGISCOLOR}{PCOLOR}ifelse
  151. /AldusTint 1 def}bdef/_Gray?{dup type 0 type eq exch type 0.0 type eq or}bdef
  152. /_White?{dup type[]type eq{aload pop pop pop add add add 0 eq{true}{false}
  153. ifelse}{pop false}ifelse}bdef/PCOLOR{findcmykcustomcolor AD_NonSepPat{1
  154. currentgray sub setcustomcolor}{AldusTint setcustomcolor}ifelse}def/ndf{1
  155. index where{pop pop pop}{dup xcheck{bind}if def}ifelse}bdef/setoverprint{
  156. AldusDict2 begin/AD_Overprint exch def end}ndf/currentoverprint{AldusDict2
  157. /AD_Overprint get}ndf/setcmykcoloroverprint{4{dup -1 eq{pop 0}if 4 1 roll}
  158. repeat setcmykcolor}ndf/findcmykcustomcolor{5/packedarray where{pop
  159. packedarray}{array astore readonly}ifelse}ndf/setcustomcolor{exch aload pop
  160. pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ndf/setcmykcolor{1 exch sub
  161. _Ccmyk _Ccmyk _Ccmyk pop setrgbcolor}ndf/customcolorimage{pop image}ndf
  162. /separationimage{image}ndf/setseparationgray{setgray}ndf/_Ccmyk{dup 5 -1 roll
  163. sub 0 _Max exch}bdef/_Max{2 copy lt{exch}if pop}bdef/_OLSmearOffset{
  164. AD_OLSmearFact AD_fontscaleX mul AD_OLSmearFact AD_fontscale mul}bdef
  165. /_BoldSmearOffset{AD_BoldSmearFact AD_fontscaleX mul AD_BoldSmearFact
  166. AD_fontscale mul translate}bdef/_StrikeThruWidth{AD_fontscale 16 div}bdef
  167. /_iand{and 0 ne}bdef/FTRENAME{dup(|______)exch ftMakeName cvn/NewName local
  168. FontDirectory NewName known{pop}{cvn findfont dup maxlength dict false
  169. copyDict dup/FontName known{dup/FontName NewName put}if NewName exch
  170. definefont pop}ifelse}bdef/FTRECODE{dup(|______)exch ftMakeName cvn/NewName
  171. local FontDirectory NewName known{pop}{cvn findfont dup maxlength dict false
  172. copyDict dup/FontName known{dup/FontName NewName put}if dup/Encoding
  173. MacEncoding put NewName exch definefont pop}ifelse}bdef/AD_encode_vector_size
  174. 256 def/AD_encode_vector null def/AD_doing_recoding false def/BEG_RECODE{dup(\
  175. |______)exch ftMakeName cvn/NewName local FontDirectory NewName known{pop
  176. /AD_doing_recoding false def/AD_encode_vector null def}{cvn findfont dup
  177. maxlength dict false copyDict dup/FontName known{dup/FontName NewName put}if
  178. /AD_encode_vector AD_encode_vector_size array def dup begin Encoding
  179. AD_encode_vector copy pop end dup/Encoding AD_encode_vector put NewName exch
  180. definefont pop/AD_doing_recoding true def AD_encode_vector dup}ifelse}bdef
  181. /ENCODE_CHAR{AD_doing_recoding{put dup}{pop pop}ifelse}bdef/END_RECODE{
  182. AD_doing_recoding{pop pop}if/AD_doing_recoding false def/AD_encode_vector null
  183. def}bdef/FTOUTLINE{ReENCODED FTOLINE}bdef/FTOLINE{/AD_fontbits exch def cvn
  184. /OlineName local dup/AD_solidfont exch def AD_solidfont FontDirectory exch
  185. known not{AD_solidfont ReENCODED AD_fontbits _iand _AutoRecode}if
  186. FontDirectory OlineName known{pop}{cvn findfont dup maxlength 2 add dict true
  187. copyDict dup/FontName known{dup/FontName OlineName put}if dup/PaintType 2 put
  188. dup/StrokeWidth AD_OutlineWidth put OlineName exch definefont pop}ifelse}bdef
  189. /AD_nameString1 66 string def/ftMakeName{1 index length/PrefixLen local dup
  190. length PrefixLen add AD_nameString1 exch 0 exch getinterval dup PrefixLen 4 -1
  191. roll putinterval dup 0 4 -1 roll putinterval}bdef/copyDict{/NoUnique local
  192. begin{1 index/FID ne NoUnique{2 index/UniqueID ne and}if{def}{pop pop}ifelse}
  193. forall currentdict end}bdef/MacEncoding 256 array def MacEncoding 0
  194. /Times-Roman findfont/Encoding get 0 128 getinterval putinterval MacEncoding
  195. 16#27/quotesingle put MacEncoding 16#60/grave put/Adieresis/Aring/Ccedilla
  196. /Eacute/Ntilde/Odieresis/Udieresis/aacute/agrave/acircumflex/adieresis/atilde
  197. /aring/ccedilla/eacute/egrave/ecircumflex/edieresis/iacute/igrave/icircumflex
  198. /idieresis/ntilde/oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave
  199. /ucircumflex/udieresis/dagger/degree/cent/sterling/section/bullet/paragraph
  200. /germandbls/registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
  201. /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
  202. /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash/questiondown
  203. /exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
  204. /guillemotright/ellipsis/space/Agrave/Atilde/Otilde/OE/oe/endash/emdash
  205. /quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge/ydieresis
  206. /Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl/daggerdbl
  207. /periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex
  208. /Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave
  209. /Oacute/Ocircumflex/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex
  210. /tilde/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
  211. MacEncoding 128 128 getinterval astore pop/getAnInt{2 getinterval dup 0 get
  212. 16#100 mul exch 1 get add cvi}def/CharBitStr 30 string def/BuildCharDict 16
  213. dict def/AFONT{gsave/FName local/BMFSize local 1 add/LastChar local/FirstChar
  214. local/DefChar LastChar FirstChar sub 2 mul def 20 dict dup begin 10 1 roll
  215. /LocTableLen local/OWTableLen local/BMRowLen local/PixelHeight local/FontWidth
  216. local/MaxWidth local/MaxKern local/Descent local/Ascent local/Bits BMRowLen
  217. PixelHeight mul string currentfile exch readhexstring pop def/LocTable
  218. LocTableLen string currentfile exch readhexstring pop def/OWTable OWTableLen
  219. string currentfile exch readhexstring pop def/FontType 3 def/FontMatrix matrix
  220. def/FontBBox[MaxKern Descent neg MaxWidth MaxKern add Ascent]def/Encoding 256
  221. array def Encoding 0 MacEncoding 0 256 getinterval putinterval/Mummble 257
  222. array def 0 1 256{Mummble exch DefChar put}for FirstChar 1 LastChar{Mummble
  223. exch dup FirstChar sub 2 mul put}for/BuildChar{BuildCharDict begin/1Char local
  224. /FDict local FDict/Mummble get 1Char get/2Char local FDict/OWTable get 2Char
  225. getAnInt 16#FFFF eq{/2Char DefChar assign}if FDict/LocTable get 2Char getAnInt
  226. /BitLoc local FDict/LocTable get 2Char 2 add getAnInt BitLoc sub/BitWidth
  227. local BitLoc 8 mod/ShiftVal local 16#FF 8 ShiftVal sub dup neg/RemShift local
  228. bitshift 16#FF and/BMask local 16#FF 8 BitLoc BitWidth add 8 mod sub dup 8 ge{
  229. pop 0}if BitWidth 0 eq{pop 8}if bitshift/AMask local BitWidth ShiftVal add 7
  230. add 8 idiv dup 0 eq{pop 1}if/ByteWidth local BitLoc 8 idiv/WhichRow local
  231. FDict/OWTable get 2Char get cvi/Offset local FDict/OWTable get 2Char 1 add get
  232. cvi/Charwidth local Charwidth 0 BMFSize divPoint FDict/MaxKern get FDict
  233. /Descent get neg BMFSize divPoint BitWidth Offset add FDict/MaxKern get add
  234. FDict/Ascent get BMFSize divPoint setcachedevice gsave ByteWidth 8 mul FDict
  235. /PixelHeight get true[FDict/PixelHeight get FDict/Descent get sub 1 add 0 0
  236. FDict/PixelHeight get FDict/Descent get sub 1 add neg Offset neg 0.5 add FDict
  237. /PixelHeight get FDict/Descent get sub 0.5 add]{FDict/Bits get WhichRow
  238. ByteWidth getinterval CharBitStr copy/ThisRow local 16#100 ByteWidth 1 sub 1
  239. neg 0{/iV local ThisRow iV get 1 index 16#100 eq{AMask and}if dup BMask and
  240. RemShift bitshift 3 1 roll ShiftVal bitshift add 16#FF and cvi ThisRow iV 3 -1
  241. roll put}for pop ThisRow/WhichRow WhichRow FDict/BMRowLen get add assign}
  242. imagemask grestore end}def end FontDirectory FName cvn known{pop}{FName cvn
  243. exch definefont pop}ifelse grestore}def/AldusTint 1 def/AD_Overprint false def
  244. /AD_NonSepPat false def/const/def load def/var/def load def/local[/exch load
  245. /def load]cvx def/assign/def load def/incr{dup cvx exec 1 add assign}bdef
  246. /postIncr{dup cvx exec exch incr}bdef/SpaceChar 16#20 const/cvPA{2 array
  247. astore cvx}bdef/point{cvPA def}bdef/locPoint{3 1 roll point}bdef/pointXpoint{3
  248. -1 roll mul 3 1 roll mul exch}bdef/pointDpoint{3 -1 roll exch div 3 1 roll div
  249. exch}bdef/setPoint{load astore pop}bdef/dupPoint{2 copy}bdef/addPoint{exch 4
  250. -1 roll add 3 1 roll add}bdef/subPoint{exch 3 1 roll sub 3 1 roll sub exch}
  251. bdef/mulPoint{dup pointXpoint}bdef/divPoint{dup pointDpoint}bdef/exchPoint{4 2
  252. roll}bdef/overPoint{3 index 3 index}bdef/anyStatD systemdict/statusdict known
  253. const/thisProduct anyStatD{statusdict/product known{statusdict/product get}{(\
  254. )}ifelse}{()}ifelse const/PerCentChg 1.0 -1.0 point/boxPath{/y2 local/x2 local
  255. /y1 local/x1 local x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto
  256. closepath}bdef/dump{4{pop}repeat}bdef/rBoxPath{/r local/y2 local/x2 local/y1
  257. local/x1 local x1 r add y1 moveto x2 y1 x2 y2 r arcto dump x2 y2 x1 y2 r arcto
  258. dump x1 y2 x1 y1 r arcto dump x1 y1 x2 y1 r arcto dump closepath}bdef
  259. /SaveMatrix matrix var/ButtCap 0 const/SquareCap 2 const/MiterJoin 0 const
  260. /BevelJoin 2 const/Black 0 const/White 1 const/Wide 0 const/Narrow 1 const
  261. /PictPostScript false var/isHairline false var/PBEGIN{dup pop{save/PSave exch
  262. def}exec/isLBO exch def/PBotRight locPoint/PTopLeft locPoint isLBO not{newpath
  263. PTopLeft PBotRight boxPath clip}if newpath isLBO{ButtCap}{SquareCap}ifelse
  264. setlinecap MiterJoin setlinejoin 3 setmiterlimit AD_PointsToUCS setlinewidth
  265. /deviceRound{dup AD_DeviceScale mul round AD_DeviceScale div dup 0 eq{pop}{
  266. exch pop}ifelse}def/HairWidth AD_PointsToUCS 4 div AD_DeviceScale mul
  267. deviceRound dup 1.5 lt{pop 0}if const Black setgray/LineScale 1 var/LineWidth
  268. AD_PointsToUCS var/LineHeight AD_PointsToUCS var/DoingWedge false var/DoingArc
  269. false var AldusDict2/PatternShade known not{/psb{}bdef/pse{}bdef/PatternShade
  270. Black var/DeclaredPattern<00>var/PCurPat<01>var}if}bdef/PEND{newpath isLBO pop
  271. {PSave restore}exec/AD_SomethingOnPage true def}bdef/SetPattern{dup
  272. /PatternShade exch def setgray}bdef/bitison{/ybit local/xbit local PCurPat
  273. ybit PatWidth mul xbit 8 idiv add get 1 7 xbit 8 mod AD_NestedMirror{exch pop}
  274. {sub}ifelse bitshift and 0 ne}bdef/PSHADE{STD_SCREEN 100 div dup/PatternShade
  275. exch def/AD_NonSepPat true def setgray<01>/PCurPat local}def/BK{/AD_NonSepPat
  276. true def Black setgray}bdef/WT{/AD_NonSepPat true def White setgray}bdef
  277. /PBLACK/BK load def/PWHITE/WT load def/PREGISCOLOR{pop AD_NonSepPat{pop
  278. currentgray}{AldusTint mul 1 exch sub}ifelse setseparationgray pop pop pop}
  279. bdef/PUSETHISPATTERN{dup PCurPat eq{pop}{PPATTERN}ifelse PatternShade
  280. /AD_NonSepPat true def setgray/VerifyUsedPattern false def}bdef/PUSEPATTERN{
  281. VerifyUsedPattern{DeclaredPattern PCurPat ne{DeclaredPattern PPATTERN}if}if
  282. PatternShade setgray/VerifyUsedPattern false def}bdef/PDECLAREPATTERN{
  283. /DeclaredPattern exch def/VerifyUsedPattern true def/AD_NonSepPat true def}
  284. bdef/PatWidth 1 const/PatSide 8 const/PFreq 300 32 div const/PPATTERN{/PCurPat
  285. local/AD_NonSepPat true def/VerifyUsedPattern false def 0/Onbits local 0
  286. /Offbits local AD_Invert{{1 exch sub}settransfer}{{}settransfer}ifelse PFreq
  287. PerCentChg pop dup 0.96 eq{pop}{div}ifelse 0{1 1 addPoint 2 divPoint PatSide
  288. mulPoint cvi exch cvi exch bitison AD_Invert xor{/Onbits incr 1}{/Offbits incr
  289. 0}ifelse}setscreen Offbits dup Onbits add div AD_Invert{1 exch sub}if
  290. SetPattern/AD_StdScreen false assign}def/vertLines{pop dup mul -2 mul 1 add}
  291. bdef/sPat{AD_Invert{{1 exch sub}settransfer}{{}settransfer}ifelse setscreen
  292. setgray}def/PALDUSSHADE{<11>/PCurPat local/AD_NonSepPat true def/AD_StdScreen
  293. false assign Wide eq{0.774 20 45{vertLines}sPat}{0.643 30 45{vertLines}sPat}
  294. ifelse}bdef/PHAIRWIDTH{HairWidth setlinewidth/isHairline true def}bdef/LW{
  295. LineScale mul deviceRound/LineHeight exch def LineScale mul deviceRound dup
  296. /LineWidth exch def setlinewidth/isHairline false def}bdef/PLNWIDTH/LW load
  297. def/PLNSCALE{div/LineScale exch def}bdef/roundCoord{0.5 add round 0.5 sub}bdef
  298. /roundPoint{transform round exch round exch itransform}bdef/adjCoord{dup 1
  299. AD_DeviceScale div gt{deviceRound 2 div}{pop .5 AD_DeviceScale div}ifelse}bdef
  300. /pULAdj{roundPoint currentlinewidth adjCoord LineHeight adjCoord addPoint}bdef
  301. /pLRAdj{roundPoint currentlinewidth adjCoord LineHeight adjCoord subPoint}bdef
  302. /QD_LINE{/qd_save save def/y2 exch def/x2 exch def/y1 exch def/x1 exch def x1
  303. x2 gt{x1 y1 x2 y2/y1 exch def/x1 exch def/y2 exch def/x2 exch def}if newpath
  304. y1 y2 gt{x1 y1 moveto x2 y2 lineto x2 LineWidth add dup y2 lineto y2
  305. LineHeight add lineto x1 LineWidth add y1 LineHeight add lineto x1 y1
  306. LineHeight add lineto x1 y1 lineto}{x1 y1 moveto x1 LineWidth add y1 lineto x2
  307. LineWidth add dup y2 lineto y2 LineHeight add lineto x2 y2 LineHeight add
  308. lineto x1 y1 LineHeight add lineto x1 y1 lineto}ifelse closepath eofill
  309. qd_save restore}bdef/PLINETO{PictPostScript{moveto lineto}{/y2 exch def/x2
  310. exch def/y1 exch def/x1 exch def currentlinecap ButtCap setlinecap newpath x1
  311. x2 eq y1 y2 eq and{LineWidth 1 le LineHeight 1 le and{x1 y1 moveto}{x1 y1 x1
  312. LineWidth add y1 LineHeight add boxPath fill}ifelse}{y1 y2 eq{LineWidth x1 x2
  313. lt{x2 add/x2 exch def}{x1 add/x1 exch def}ifelse LineHeight setlinewidth x1 y1
  314. LineHeight 2 div add roundPoint moveto x2 y2 LineHeight 2 div add roundPoint
  315. lineto mayStroke}{x1 x2 eq{LineHeight y1 y2 lt{y2 add/y2 exch def}{y1 add/y1
  316. exch def}ifelse x1 LineWidth 2 div add y1 roundPoint moveto x2 LineWidth 2 div
  317. add y2 roundPoint lineto mayStroke}{x1 y1 pULAdj moveto x2 y2 pULAdj lineto
  318. mayStroke}ifelse}ifelse}ifelse setlinecap}ifelse}bdef/HairRect{save/here exch
  319. def/y2 exch def/x2 exch def/y1 exch def/x1 exch def PHAIRWIDTH newpath x1 x2
  320. sub abs y1 y2 sub abs lt{x1 x2 add 2 div dup y1 roundPoint moveto y2
  321. roundPoint lineto stroke}{y1 y2 add 2 div dup x1 exch roundPoint moveto x2
  322. exch roundPoint lineto stroke}ifelse here restore}bdef/PHAIRLINE{count 4 gt{
  323. newpath PHAIRWIDTH addPoint 2 divPoint roundPoint moveto addPoint 2 divPoint
  324. roundPoint lineto pop pop stroke}{HairRect}ifelse}bdef/PHANGLINE{roundPoint/yb
  325. exch def/xr exch def roundPoint/yt exch def/xl exch def deviceRound/delta exch
  326. def{{yt delta sub/yt exch def}{yb delta add/yb exch def}ifelse}{{xl delta sub
  327. /xl exch def}{xr delta add/xr exch def}ifelse}ifelse newpath 1 AD_DeviceScale
  328. div 2 div dup dupPoint xl yt addPoint exchPoint xr yb exchPoint subPoint
  329. boxPath fill}bdef/PCURVETO{curveto}bdef/PMOVETO{moveto}bdef/PRECT{newpath
  330. pLRAdj exchPoint pULAdj exchPoint boxPath}bdef/PRRECT{pLRAdj/Botts locPoint
  331. pULAdj/Tops locPoint currentlinewidth dup subPoint/Diams locPoint newpath
  332. SaveMatrix currentmatrix pop Botts Tops subPoint/Sides locPoint Sides pop abs
  333. Diams pop ge{Diams}{Sides}ifelse pop Sides exch pop abs Diams exch pop ge{
  334. Diams}{Sides}ifelse exch pop/Diams locPoint Diams 2 div/YRad local 0 gt{Diams
  335. exch pop 0 eq{1}{Diams div}ifelse}{1}ifelse 1/PRRscale locPoint Tops translate
  336. PRRscale scale 0 0 Sides PRRscale pointDpoint Diams 0 gt exch 0 gt and{YRad
  337. rBoxPath}{boxPath}ifelse SaveMatrix setmatrix}bdef/POVAL{newpath SaveMatrix
  338. currentmatrix pop 0 359 false pArc closepath SaveMatrix setmatrix}bdef/PARC{
  339. newpath SaveMatrix currentmatrix pop/DoingArc true assign false pArc
  340. SaveMatrix setmatrix}bdef/PWEDGE{newpath SaveMatrix currentmatrix pop
  341. /DoingWedge true assign true pArc closepath SaveMatrix setmatrix}bdef/modAdj{
  342. dup 360 gt{360 sub}if dup 0 lt{360 add}if}bdef/pArc{/Fill local/ArcAng local
  343. /BegAng local pLRAdj/PLR locPoint pULAdj/PUL locPoint 360 BegAng ArcAng add
  344. sub 90 add modAdj/StartAng local StartAng ArcAng add/EndAng local PLR PUL
  345. subPoint 2 divPoint/Rad locPoint PUL Rad addPoint translate Rad neg scale Fill
  346. {0 0 moveto}if 0 0 1 StartAng EndAng dupPoint eq{pop pop 0 359 arc closepath}{
  347. ArcAng 0 lt{arcn}{arc}ifelse}ifelse}bdef/PBEGPOLY{newpath pULAdj moveto}bdef
  348. /PBEGSMOOTHPOLY{newpath}bdef/PPOLYPOINT{pULAdj lineto}bdef/PENDPOLY{/Closed
  349. local Closed{closepath}if}bdef/PENDSMOOTHPOLY{PENDPOLY}bdef/PBEGRGN{mark}bdef
  350. /PREGION{PRECT cleartomark}bdef/PTXBEG{/PTSave1 save const}bdef/PROTATE{
  351. currentdict/PRotateSave known not{save/PRotateSave exch def}if 3 1 roll
  352. dupPoint neg exch neg exch 5 2 roll translate rotate translate}bdef/PHFLIP{
  353. currentdict/PRotateSave known not{save/PRotateSave exch def}if dupPoint neg
  354. exch neg exch 4 2 roll translate -1 1 scale translate}bdef/PVFLIP{currentdict
  355. /PRotateSave known not{save/PRotateSave exch def}if dupPoint neg exch neg exch
  356. 4 2 roll translate 1 -1 scale translate}bdef/PROTATE_END{PRotateSave restore}
  357. bdef/PSCALETEXT{AD_PointsToUCS mul div/Xscale exch def AD_PointsToUCS mul div
  358. /Yscale exch def currentfont[Xscale 0 0 Yscale 0 0]makefont setfont
  359. /AD_fontscaleX AD_fontscaleX Xscale mul def/AD_fontscale AD_fontscale Yscale
  360. mul def}bdef/PSTBEG{userdict/md known not{userdict begin/md 0 def end}if
  361. PBLACK/PictPostScript true def}bdef/PSTEND{/PictPostScript false def}bdef
  362. /mayStroke{currentlinewidth 0 gt isHairline or{gsave/s_matrix null def
  363. /stroke_xform false def DoingWedge{MiterJoin setlinejoin}if currentlinewidth 1
  364. AD_DeviceScale div sub setlinewidth LineWidth LineHeight ne{/s_matrix matrix
  365. currentmatrix def 1 LineHeight LineWidth div scale/stroke_xform true def}if
  366. stroke stroke_xform{s_matrix setmatrix}if grestore}if/DoingWedge false assign}
  367. bdef/RESET_PAT_SEP{/AD_NonSepPat false def}bdef/PFRAME{mayStroke RESET_PAT_SEP
  368. }bdef/PPAINT{mayStroke gsave eofill grestore RESET_PAT_SEP}bdef/PERASE{
  369. mayStroke gsave eofill grestore RESET_PAT_SEP}bdef/PFILL{mayStroke gsave
  370. eofill grestore RESET_PAT_SEP}bdef/PTINT{100 exch sub 100 div/AldusTint exch
  371. def}bdef/PRESETTINT{AldusTint 1 eq not{/AldusTint 1 def}if}bdef/PHORZSHADE{0
  372. eq{/widehorz}{/narrowhorz}ifelse findfont _OpaquePatternfill}bdef/PVERTSHADE{0
  373. eq{/widevert}{/narrowvert}ifelse findfont _OpaquePatternfill}bdef/PHATCHSHADE{
  374. 0 eq{/widehatch}{/narrowhatch}ifelse findfont _OpaquePatternfill}bdef
  375. /PDIAGSHADE{0 eq{/widediag}{/narrowdiag}ifelse findfont _OpaquePatternfill}
  376. bdef/_SetCoords{/y2 local/x2 local/y1 local/x1 local}bdef/_DefinePattern{7
  377. dict begin/FontDict 9 dict def FontDict begin/cache exch def/key exch def/proc
  378. exch cvx def/mtx exch matrix invertmatrix def/height exch def/width exch def
  379. /ctm matrix currentmatrix def/ptm matrix identmatrix def/str(1234567890123456\
  380. 7890123456789012)def end/FontBBox[0 0 FontDict/width get FontDict/height get]
  381. def/FontMatrix FontDict/mtx get def/Encoding StandardEncoding def/FontType 3
  382. def/BuildChar{pop begin FontDict begin width 0 cache{0 0 width height
  383. setcachedevice}{setcharwidth}ifelse 0 0 moveto width 0 lineto width height
  384. lineto 0 height lineto closepath clip newpath gsave proc grestore end end}def
  385. FontDict/key get currentdict definefont end}bind def/_Patternpath{dup type
  386. /dicttype eq{begin FontDict/ctm get setmatrix}{exch begin FontDict/ctm get
  387. setmatrix concat}ifelse currentdict setfont FontDict begin FontMatrix concat
  388. width 0 dtransform round width div exch round width div exch 0 height
  389. dtransform round height div exch round height div exch 0 0 transform round
  390. exch round exch ptm astore setmatrix pathbbox height div ceiling height mul 4
  391. 1 roll width div ceiling width mul 4 1 roll height div floor height mul 4 1
  392. roll width div floor width mul 4 1 roll 2 index sub height div ceiling cvi
  393. exch 3 index sub width div ceiling cvi exch 4 2 roll moveto FontMatrix ptm
  394. invertmatrix pop{gsave ptm concat dup str length idiv{str show}repeat dup str
  395. length mod str exch 0 exch getinterval show grestore 0 height rmoveto}repeat
  396. pop end end}bind def/_Patternfill{gsave clip _Patternpath grestore newpath}
  397. bind def/_OpaquePatternfill{gsave 0 0 0 0 setcmykcolor fill grestore
  398. _Patternfill}bind def/_DefinePatterns{/AD_PatternLW .009375 AD_Resolution mul
  399. def/narrowdiagunit .046666 AD_Resolution mul def narrowdiagunit narrowdiagunit
  400. [1 0 0 1 0 0]{SquareCap setlinecap 0 narrowdiagunit 2 div moveto
  401. narrowdiagunit 2 div 0 lineto narrowdiagunit 2 div narrowdiagunit moveto
  402. narrowdiagunit narrowdiagunit 2 div lineto AD_PatternLW setlinewidth stroke}
  403. bind/narrowdiag true _DefinePattern pop/widediagunit .073333 AD_Resolution mul
  404. def widediagunit widediagunit[1 0 0 1 0 0]{SquareCap setlinecap 0 widediagunit
  405. 2 div moveto widediagunit 2 div 0 lineto widediagunit 2 div widediagunit
  406. moveto widediagunit widediagunit 2 div lineto AD_PatternLW setlinewidth stroke
  407. }bind/widediag true _DefinePattern pop/narrowhorzunit .053333 AD_Resolution
  408. mul def narrowhorzunit narrowhorzunit[1 0 0 1 0 0]{SquareCap setlinecap 0
  409. narrowhorzunit 2 div moveto narrowhorzunit narrowhorzunit 2 div lineto
  410. AD_PatternLW setlinewidth stroke}bind/narrowhorz true _DefinePattern pop
  411. /widehorzunit .106666 AD_Resolution mul def widehorzunit widehorzunit[1 0 0 1
  412. 0 0]{SquareCap setlinecap 0 widehorzunit 2 div moveto widehorzunit
  413. widehorzunit 2 div lineto AD_PatternLW setlinewidth stroke}bind/widehorz true
  414. _DefinePattern pop/narrowvertunit .053333 AD_Resolution mul def narrowvertunit
  415. narrowvertunit[1 0 0 1 0 0]{SquareCap setlinecap narrowvertunit 2 div 0 moveto
  416. narrowvertunit 2 div narrowvertunit lineto AD_PatternLW setlinewidth stroke}
  417. bind/narrowvert true _DefinePattern pop/widevertunit .106666 AD_Resolution mul
  418. def widevertunit widevertunit[1 0 0 1 0 0]{SquareCap setlinecap widevertunit 2
  419. div 0 moveto widevertunit 2 div widevertunit lineto AD_PatternLW setlinewidth
  420. stroke}bind/widevert true _DefinePattern pop/narrowhatchunit .053333
  421. AD_Resolution mul def narrowhatchunit narrowhatchunit[1 0 0 1 0 0]{SquareCap
  422. setlinecap narrowhatchunit 2 div 0 moveto narrowhatchunit 2 div
  423. narrowhatchunit lineto 0 narrowhatchunit 2 div moveto narrowhatchunit
  424. narrowhatchunit 2 div lineto AD_PatternLW setlinewidth stroke}bind/narrowhatch
  425. true _DefinePattern pop/widehatchunit .106666 AD_Resolution mul def
  426. widehatchunit widehatchunit[1 0 0 1 0 0]{SquareCap setlinecap widehatchunit 2
  427. div 0 moveto widehatchunit 2 div widehatchunit lineto 0 widehatchunit 2 div
  428. moveto widehatchunit widehatchunit 2 div lineto AD_PatternLW setlinewidth
  429. stroke}bind/widehatch true _DefinePattern pop}version(23.)anchorsearch{pop pop
  430. def}{pop bdef}ifelse systemdict/currentpacking known{AD_OldPacking setpacking}
  431. if/AldusDone AldusVersion def end